-- card: 6105 from stack: in
-- bmap block id: 6528
-- flags: 0000
-- background id: 4114
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=286 right=332 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go to card id 4434
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=82 top=37 right=59 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View 'doMenu' Script
----- HyperTalk script -----
on mouseUp
  if visible of card field "doMenu Script" is true then
    hide card field "doMenu Script"
  else
    show card field "doMenu Script"
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=297 top=37 right=59 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View 'idle' Script
----- HyperTalk script -----
on mouseUp
  if visible of card field "idle Script" is true then
    hide card field "idle Script"
  else
    show card field "idle Script"
  end if
end mouseUp



-- part 4 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=2 top=60 right=259 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: doMenu Script
----- HyperTalk script -----
on mouseUp
  hide card field "doMenu Script"
end mouseUp


-- part 6 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=250 top=60 right=259 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: idle Script
----- HyperTalk script -----
on mouseUp
  hide card field "idle Script"
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=169 top=260 right=281 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View 'ctrl-tab' Script
----- HyperTalk script -----
on mouseUp
  if visible of card field "Control Script" is true then
    hide card field "Control Script"
  else
    show card field "Control Script"
  end if
end mouseUp



-- part 10 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=106 top=111 right=259 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Control Script
----- HyperTalk script -----
on mouseUp
  hide card field "Control Script"
end mouseUp


-- part contents for card part 6
----- text -----
-- the "update" mode returns any item
-- chosen from torn off Palette into "pickedOne"
-- to be passed to doMenu handler

on idle
  global pickedOne
  put Palette("Update") into temp
  if pickedOne is not empty then doMenu pickedOne
  put empty into pickedOne
  pass idle
end idle

-- part contents for card part 4
----- text -----
-- responds to choices A-R, and S from 
-- Palette pull-down Menu

on doMenu which
  if which is "S" then
   -- script of your choice
  else
    if which is "A" then
     -- script of your choice
    else
      if which is "B" then
       -- script of your choice
      else
        if which is "C" then
        -- script of your choice
        else
          if which is "D" then
          -- script of your choice
          else
            if which is "E" then
            -- script of your choice
            else
              if which is "F" then
              -- script of your choice
              else
                if which is "G" then
                -- script of your choice
                else
                  if which is "H" then
                  -- script of your choice
                  else
                    if which is "I" then
                    -- script of your choice
                    else
                      if which is "J" then
                      -- script of your choice
                      else
                        if which is "K" then
                        -- script of your choice
                        else
                          if which is "L" then
                          -- script of your choice
                          else
                            if which is "M" then
                            -- script of your choice
                            else
                              if which is "N" then
                              -- script of your choice
                              else
                                if which is "O" then
                                -- script of your choice
                                else
                                  if which is "P" then 
                                  -- script of your choice
                                  else
                                    if which is "Q" then
                                    -- script of your choice
                                    else
                                      if which is "R" then
                                      -- script of your choice
                                      else
                                        pass doMenu
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end doMenu


-- part contents for card part 10
----- text -----
-- a little known type of handler to intercept
-- control key hits. This gets ASCII 9 (tab key).
-- change to another combo for < Mac SE

on controlKey which
  if which is 9 then
    put Palette("Toggle") into temp
  end if
  pass controlKey
end controlKey